home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / WINDOWS / ALTD201A.ZIP / VB4032.ZIP / VB40.32 / EX23VB.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-04-19  |  10.4 KB  |  327 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "VB Example 23"
  4.    ClientHeight    =   4140
  5.    ClientLeft      =   1605
  6.    ClientTop       =   1650
  7.    ClientWidth     =   5115
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   4545
  18.    Left            =   1545
  19.    LinkTopic       =   "Form1"
  20.    ScaleHeight     =   4140
  21.    ScaleWidth      =   5115
  22.    Top             =   1305
  23.    Width           =   5235
  24.    Begin VB.TextBox InputFiles 
  25.       Height          =   375
  26.       Left            =   1440
  27.       TabIndex        =   12
  28.       Text            =   "Input Files"
  29.       Top             =   720
  30.       Width           =   3495
  31.    End
  32.    Begin VB.TextBox ArchiveName 
  33.       Height          =   375
  34.       Left            =   1440
  35.       TabIndex        =   11
  36.       Text            =   "Archive Name"
  37.       Top             =   240
  38.       Width           =   3495
  39.    End
  40.    Begin VB.CommandButton About 
  41.       Caption         =   "About"
  42.       BeginProperty Font 
  43.          name            =   "MS Sans Serif"
  44.          charset         =   0
  45.          weight          =   400
  46.          size            =   8.25
  47.          underline       =   0   'False
  48.          italic          =   0   'False
  49.          strikethrough   =   0   'False
  50.       EndProperty
  51.       Height          =   375
  52.       Left            =   3240
  53.       TabIndex        =   10
  54.       Top             =   1320
  55.       Width           =   1335
  56.    End
  57.    Begin VB.CommandButton ExitButton 
  58.       Caption         =   "Exit"
  59.       BeginProperty Font 
  60.          name            =   "MS Sans Serif"
  61.          charset         =   0
  62.          weight          =   400
  63.          size            =   8.25
  64.          underline       =   0   'False
  65.          italic          =   0   'False
  66.          strikethrough   =   0   'False
  67.       EndProperty
  68.       Height          =   375
  69.       Left            =   1680
  70.       TabIndex        =   9
  71.       Top             =   1320
  72.       Width           =   1335
  73.    End
  74.    Begin VB.TextBox JobProgressWindow 
  75.       BackColor       =   &H00C0C0C0&
  76.       BorderStyle     =   0  'None
  77.       Enabled         =   0   'False
  78.       BeginProperty Font 
  79.          name            =   "MS Sans Serif"
  80.          charset         =   0
  81.          weight          =   400
  82.          size            =   8.25
  83.          underline       =   0   'False
  84.          italic          =   0   'False
  85.          strikethrough   =   0   'False
  86.       EndProperty
  87.       Height          =   375
  88.       Left            =   2880
  89.       TabIndex        =   3
  90.       Text            =   "JobProgressWindow"
  91.       Top             =   3120
  92.       Visible         =   0   'False
  93.       Width           =   1935
  94.    End
  95.    Begin VB.TextBox FileProgressWindow 
  96.       Appearance      =   0  'Flat
  97.       BackColor       =   &H00C0C0C0&
  98.       BorderStyle     =   0  'None
  99.       Enabled         =   0   'False
  100.       BeginProperty Font 
  101.          name            =   "MS Sans Serif"
  102.          charset         =   0
  103.          weight          =   400
  104.          size            =   8.25
  105.          underline       =   0   'False
  106.          italic          =   0   'False
  107.          strikethrough   =   0   'False
  108.       EndProperty
  109.       Height          =   375
  110.       Left            =   2880
  111.       TabIndex        =   2
  112.       Text            =   "FileProgressWindow"
  113.       Top             =   2520
  114.       Visible         =   0   'False
  115.       Width           =   1935
  116.    End
  117.    Begin VB.TextBox TextWindow 
  118.       Appearance      =   0  'Flat
  119.       BackColor       =   &H00C0C0C0&
  120.       BorderStyle     =   0  'None
  121.       Height          =   495
  122.       Left            =   2640
  123.       TabIndex        =   1
  124.       Text            =   "Text1"
  125.       Top             =   1920
  126.       Width           =   1935
  127.    End
  128.    Begin VB.CommandButton Compress 
  129.       Caption         =   "Compress"
  130.       BeginProperty Font 
  131.          name            =   "MS Sans Serif"
  132.          charset         =   0
  133.          weight          =   400
  134.          size            =   8.25
  135.          underline       =   0   'False
  136.          italic          =   0   'False
  137.          strikethrough   =   0   'False
  138.       EndProperty
  139.       Height          =   375
  140.       Left            =   120
  141.       TabIndex        =   0
  142.       Top             =   1320
  143.       Width           =   1335
  144.    End
  145.    Begin Threed.SSPanel SSPanel1 
  146.       Height          =   495
  147.       Left            =   2640
  148.       TabIndex        =   4
  149.       Top             =   2520
  150.       Width           =   1935
  151.       _Version        =   65536
  152.       _ExtentX        =   3413
  153.       _ExtentY        =   873
  154.       _StockProps     =   15
  155.       Caption         =   "FileProgressGauge"
  156.       BackColor       =   12632256
  157.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  158.          name            =   "MS Sans Serif"
  159.          charset         =   0
  160.          weight          =   400
  161.          size            =   8.25
  162.          underline       =   0   'False
  163.          italic          =   0   'False
  164.          strikethrough   =   0   'False
  165.       EndProperty
  166.       FloodType       =   1
  167.    End
  168.    Begin Threed.SSPanel SSPanel2 
  169.       Height          =   495
  170.       Left            =   2640
  171.       TabIndex        =   5
  172.       Top             =   3120
  173.       Width           =   1935
  174.       _Version        =   65536
  175.       _ExtentX        =   3413
  176.       _ExtentY        =   873
  177.       _StockProps     =   15
  178.       Caption         =   "JobProgressGauge"
  179.       BackColor       =   12632256
  180.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  181.          name            =   "MS Sans Serif"
  182.          charset         =   0
  183.          weight          =   400
  184.          size            =   8.25
  185.          underline       =   0   'False
  186.          italic          =   0   'False
  187.          strikethrough   =   0   'False
  188.       EndProperty
  189.       FloodType       =   1
  190.    End
  191.    Begin VB.Label Label5 
  192.       Alignment       =   1  'Right Justify
  193.       Caption         =   "Input Files:"
  194.       BeginProperty Font 
  195.          name            =   "MS Sans Serif"
  196.          charset         =   0
  197.          weight          =   400
  198.          size            =   8.25
  199.          underline       =   0   'False
  200.          italic          =   0   'False
  201.          strikethrough   =   0   'False
  202.       EndProperty
  203.       Height          =   375
  204.       Left            =   120
  205.       TabIndex        =   14
  206.       Top             =   720
  207.       Width           =   1095
  208.    End
  209.    Begin VB.Label Label4 
  210.       Alignment       =   1  'Right Justify
  211.       Caption         =   "Archive Name:"
  212.       BeginProperty Font 
  213.          name            =   "MS Sans Serif"
  214.          charset         =   0
  215.          weight          =   400
  216.          size            =   8.25
  217.          underline       =   0   'False
  218.          italic          =   0   'False
  219.          strikethrough   =   0   'False
  220.       EndProperty
  221.       Height          =   375
  222.       Left            =   0
  223.       TabIndex        =   13
  224.       Top             =   240
  225.       Width           =   1095
  226.    End
  227.    Begin VB.Label Label3 
  228.       Alignment       =   1  'Right Justify
  229.       Caption         =   "Job Percent Complete:"
  230.       BeginProperty Font 
  231.          name            =   "MS Sans Serif"
  232.          charset         =   0
  233.          weight          =   400
  234.          size            =   8.25
  235.          underline       =   0   'False
  236.          italic          =   0   'False
  237.          strikethrough   =   0   'False
  238.       EndProperty
  239.       Height          =   495
  240.       Left            =   480
  241.       TabIndex        =   8
  242.       Top             =   3120
  243.       Width           =   1815
  244.    End
  245.    Begin VB.Label Label2 
  246.       Alignment       =   1  'Right Justify
  247.       Caption         =   "File Percent Complete:"
  248.       BeginProperty Font 
  249.          name            =   "MS Sans Serif"
  250.          charset         =   0
  251.          weight          =   400
  252.          size            =   8.25
  253.          underline       =   0   'False
  254.          italic          =   0   'False
  255.          strikethrough   =   0   'False
  256.       EndProperty
  257.       Height          =   375
  258.       Left            =   480
  259.       TabIndex        =   7
  260.       Top             =   2520
  261.       Width           =   1815
  262.    End
  263.    Begin VB.Label Label1 
  264.       Alignment       =   1  'Right Justify
  265.       Caption         =   "File Being Compressed:"
  266.       BeginProperty Font 
  267.          name            =   "MS Sans Serif"
  268.          charset         =   0
  269.          weight          =   400
  270.          size            =   8.25
  271.          underline       =   0   'False
  272.          italic          =   0   'False
  273.          strikethrough   =   0   'False
  274.       EndProperty
  275.       Height          =   375
  276.       Left            =   480
  277.       TabIndex        =   6
  278.       Top             =   1920
  279.       Width           =   1815
  280.    End
  281. Attribute VB_Name = "Form1"
  282. Attribute VB_Creatable = False
  283. Attribute VB_Exposed = False
  284. Dim LibraryHandle As Long
  285. Private Sub About_Click()
  286.   frmAbout.Text1 = "EX23VB demonstrates the simplified interface.  Compress will add INPUT*.DAT"
  287.   frmAbout.Text1 = frmAbout.Text1 + " files to VB00.ZIP."
  288.   frmAbout.Show 1
  289. End Sub
  290. Private Sub Compress_Click()
  291.     Dim i As Integer
  292.     About.SetFocus
  293.     Compress.Enabled = 0
  294.     ExitButton.Enabled = 0
  295.     i = ALCreate(ArchiveName.text, InputFiles.text, 0, TextWindow.hWnd, FileProgressWindow.hWnd, JobProgressWindow.hWnd)
  296.     ExitButton.Enabled = 1
  297.     Compress.Enabled = 1
  298.     Compress.SetFocus
  299. End Sub
  300. Private Sub ExitButton_Click()
  301. '    FreeLibrary (LibraryHandle)
  302.     End
  303. End Sub
  304. Private Sub FileProgressWindow_Change()
  305.     SSPanel1.FloodPercent = Val(FileProgressWindow.text)
  306. End Sub
  307. Private Sub Form_Load()
  308.   ChDrive App.Path
  309.   ChDir App.Path
  310.   LibraryHandle = LoadLibrary(DLLName)
  311.   If LibraryHandle = 0 Then
  312.     InputFiles.text = "**ERROR LOADING " + DLLName + "**"
  313.   Else
  314.     InputFiles.text = "*.frm, input*.dat"
  315.   End If
  316.   ArchiveName.text = "vb00.zip"
  317. End Sub
  318. Private Sub Form_Unload(Cancel As Integer)
  319.   FreeLibrary (LibraryHandle)
  320. End Sub
  321. Private Sub JobProgressWindow_Change()
  322.     SSPanel2.FloodPercent = Val(JobProgressWindow.text)
  323. End Sub
  324. Private Sub TextWindow_GotFocus()
  325.     ExitButton.SetFocus
  326. End Sub
  327.